home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / os2 / zoc205.zip / INSTALL.FIL / SCRIPT / RXSAMPLE / MANUAL / IF3.RX < prev    next >
Text File  |  1994-11-01  |  693b  |  31 lines
  1. /* REXX sample about decisions */
  2.  
  3. 'TIMEOUT 60'
  4.  
  5.  
  6. /* Wait for 'Name?' - check for success and report error */
  7. 'WAIT "Name?"'
  8.  
  9. IF RC=0 THEN /* outer IF */
  10. DO /* received 'Name?' */
  11.    'SEND "Joe User^M"'
  12.  
  13.    /* Wait for 'Password?' - check for success and report error */
  14.    'WAIT "Password?"'
  15.  
  16.    IF RC=0 THEN  /* inner IF */
  17.    DO /* received 'Password?' */
  18.       'SEND "mypassword^M"'
  19.    END
  20.    ELSE /* inner IF */
  21.    DO /* Ouch, 'Password?' was not received */
  22.       'WRITELN "ERROR (Password)!!"'
  23.       'HANGUP'
  24.    END /* inner IF */
  25. END
  26. ELSE /* outer IF */
  27. DO /* Ouch, 'Name?' was not received */
  28.    'WRITELN "ERROR (Name)!!"'
  29.    'HANGUP'
  30. END /* outer IF */
  31.